home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / SETUP / US / CBUILDER / DATA.Z / SYSUTILS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-13  |  53KB  |  1,048 lines
  1. //----------------------------------------------------------------------------
  2. // SysUtils.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: SysUtils.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef SysUtilsHPP
  6. #define SysUtilsHPP
  7. //----------------------------------------------------------------------------
  8. #include <Windows.hpp>
  9. #include <System.hpp>
  10. #pragma warn -par
  11. #pragma warn -hid 
  12. #pragma warn -inl
  13.  
  14. namespace Sysutils
  15. {
  16. //-- type declarations -------------------------------------------------------
  17. #pragma pack(push, 1)
  18. struct WordRec
  19. {
  20.     Byte Lo;
  21.     Byte Hi;
  22. } ;
  23. #pragma pack(pop)
  24.  
  25. #pragma pack(push, 1)
  26. struct LongRec
  27. {
  28.     Word Lo;
  29.     Word Hi;
  30. } ;
  31. #pragma pack(pop)
  32.  
  33. struct TMethod
  34. {
  35.     void *Code;
  36.     void *Data;
  37. } ;
  38.  
  39. typedef Byte TByteArray[32768];
  40.  
  41. typedef TByteArray *PByteArray;
  42.  
  43. typedef Word TWordArray[16384];
  44.  
  45. typedef TWordArray *PWordArray;
  46.  
  47. typedef void __fastcall (*TProcedure)(void);
  48.  
  49. typedef System::AnsiString TFileName;
  50.  
  51. struct TSearchRec
  52. {
  53.     int Time;
  54.     int Size;
  55.     int Attr;
  56.     System::AnsiString Name;
  57.     int ExcludeAttr;
  58.     int FindHandle;
  59.     WIN32_FIND_DATAA FindData;
  60. } ;
  61.  
  62. struct TFileRec
  63. {
  64.     int Handle;
  65.     int Mode;
  66.     Cardinal RecSize;
  67.     Byte Private[28];
  68.     Byte UserData[32];
  69.     char Name[260];
  70. } ;
  71.  
  72. typedef char TTextBuf[128];
  73.  
  74. typedef TTextBuf *PTextBuf;
  75.  
  76. struct TTextRec
  77. {
  78.     int Handle;
  79.     int Mode;
  80.     Cardinal BufSize;
  81.     Cardinal BufPos;
  82.     Cardinal BufEnd;
  83.     char *BufPtr;
  84.     void *OpenFunc;
  85.     void *InOutFunc;
  86.     void *FlushFunc;
  87.     void *CloseFunc;
  88.     Byte UserData[32];
  89.     char Name[260];
  90.     char Buffer[128];
  91. } ;
  92.  
  93. enum TFloatValue { fvExtended, fvCurrency };
  94.  
  95. enum TFloatFormat { ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency };
  96.  
  97. #pragma pack(push, 1)
  98. struct TFloatRec
  99. {
  100.     short Exponent;
  101.     bool Negative;
  102.     char Digits[21];
  103. } ;
  104. #pragma pack(pop)
  105.  
  106. struct TTimeStamp
  107. {
  108.     int Time;
  109.     int Date;
  110. } ;
  111.  
  112. enum TMbcsByteType { mbSingleByte, mbLeadByte, mbTrailByte };
  113.  
  114. #pragma pack(push, 1)
  115. struct TSysLocale
  116. {
  117.     int DefaultLCID;
  118.     Word PriLangID;
  119.     Word SubLangID;
  120.     bool FarEast;
  121. } ;
  122. #pragma pack(pop)
  123.  
  124. class __declspec(delphiclass) Exception;
  125. class __declspec(pascalimplementation) Exception : public System::TObject
  126. {
  127.     typedef System::TObject inherited;
  128.     
  129. private:
  130.     System::AnsiString FMessage;
  131.     int FHelpContext;
  132.     
  133. public:
  134.     __fastcall Exception(const System::AnsiString Msg);
  135.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  136.         );
  137.     __fastcall Exception(int Ident);
  138.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size);
  139.     __fastcall Exception(const System::AnsiString Msg, int AHelpContext);
  140.     __fastcall Exception(const System::AnsiString Msg, const System::TVarRec * Args, const int Args_Size
  141.         , int AHelpContext);
  142.     __fastcall Exception(int Ident, int AHelpContext);
  143.     __fastcall Exception(int Ident, const System::TVarRec * Args, const int Args_Size, int AHelpContext
  144.         );
  145.     __property int HelpContext = {read=FHelpContext, write=FHelpContext, nodefault};
  146.     __property System::AnsiString Message = {read=FMessage, write=FMessage, nodefault};
  147. public:
  148.     /* TObject.Destroy */ __fastcall virtual ~Exception(void) { }
  149.     
  150. };
  151.  
  152. typedef System::TMetaClass*ExceptClass;
  153.  
  154. class __declspec(delphiclass) EAbort;
  155. class __declspec(pascalimplementation) EAbort : public Exception
  156. {
  157.     typedef Exception inherited;
  158.     
  159. public:
  160.     /* Exception.Create */ __fastcall EAbort(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
  161.         
  162.     /* Exception.CreateFmt */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec * Args
  163.         , const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  164.     /* Exception.CreateRes */ __fastcall EAbort(int Ident) : Sysutils::Exception(Ident) { }
  165.     /* Exception.CreateResFmt */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int Args_Size
  166.         ) : Sysutils::Exception(Ident, Args, Args_Size) { }
  167.     /* Exception.CreateHelp */ __fastcall EAbort(const System::AnsiString Msg, int AHelpContext) : Sysutils::
  168.         Exception(Msg, AHelpContext) { }
  169.     /* Exception.CreateFmtHelp */ __fastcall EAbort(const System::AnsiString Msg, const System::TVarRec 
  170.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  171.         ) { }
  172.     /* Exception.CreateResHelp */ __fastcall EAbort(int Ident, int AHelpContext) : Sysutils::Exception(
  173.         Ident, AHelpContext) { }
  174.     /* Exception.CreateResFmtHelp */ __fastcall EAbort(int Ident, const System::TVarRec * Args, const int 
  175.         Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  176.     
  177. public:
  178.     /* TObject.Destroy */ __fastcall virtual ~EAbort(void) { }
  179.     
  180. };
  181.  
  182. class __declspec(delphiclass) EOutOfMemory;
  183. class __declspec(pascalimplementation) EOutOfMemory : public Exception
  184. {
  185.     typedef Exception inherited;
  186.     
  187. public:
  188.     __fastcall virtual ~EOutOfMemory(void);
  189.     virtual void __fastcall FreeInstance(void);
  190. public:
  191.     /* Exception.Create */ __fastcall EOutOfMemory(const System::AnsiString Msg) : Sysutils::Exception(
  192.         Msg) { }
  193.     /* Exception.CreateFmt */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  194.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  195.     /* Exception.CreateRes */ __fastcall EOutOfMemory(int Ident) : Sysutils::Exception(Ident) { }
  196.     /* Exception.CreateResFmt */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  197.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  198.     /* Exception.CreateHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, int AHelpContext) : 
  199.         Sysutils::Exception(Msg, AHelpContext) { }
  200.     /* Exception.CreateFmtHelp */ __fastcall EOutOfMemory(const System::AnsiString Msg, const System::TVarRec 
  201.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  202.         ) { }
  203.     /* Exception.CreateResHelp */ __fastcall EOutOfMemory(int Ident, int AHelpContext) : Sysutils::Exception(
  204.         Ident, AHelpContext) { }
  205.     /* Exception.CreateResFmtHelp */ __fastcall EOutOfMemory(int Ident, const System::TVarRec * Args, const 
  206.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  207.     
  208. };
  209.  
  210. class __declspec(delphiclass) EInOutError;
  211. class __declspec(pascalimplementation) EInOutError : public Exception
  212. {
  213.     typedef Exception inherited;
  214.     
  215. public:
  216.     int ErrorCode;
  217. public:
  218.     /* Exception.Create */ __fastcall EInOutError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  219.         ) { }
  220.     /* Exception.CreateFmt */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  221.         * Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
  222.     /* Exception.CreateRes */ __fastcall EInOutError(int Ident) : Sysutils::Exception(Ident) { }
  223.     /* Exception.CreateResFmt */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  224.         int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
  225.     /* Exception.CreateHelp */ __fastcall EInOutError(const System::AnsiString Msg, int AHelpContext) : 
  226.         Sysutils::Exception(Msg, AHelpContext) { }
  227.     /* Exception.CreateFmtHelp */ __fastcall EInOutError(const System::AnsiString Msg, const System::TVarRec 
  228.         * Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
  229.         ) { }
  230.     /* Exception.CreateResHelp */ __fastcall EInOutError(int Ident, int AHelpContext) : Sysutils::Exception(
  231.         Ident, AHelpContext) { }
  232.     /* Exception.CreateResFmtHelp */ __fastcall EInOutError(int Ident, const System::TVarRec * Args, const 
  233.         int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
  234.     
  235. public:
  236.     /* TObject.Destroy */ __fastcall virtual ~EInOutError(void) { }
  237.     
  238. };
  239.  
  240. class __declspec(delphiclass) EIntError;
  241. class __declspec(pascalimplementation) EIntError : public Exception
  242. {
  243.     typedef Exception inherited;
  244.     
  245. public:
  246.     /* Exception.Create */ __fastcall EIntError(const System::AnsiString Msg) : Sysutils::Exception(Msg
  247.         ) { }
  248.     /* Exception.Cr